home *** CD-ROM | disk | FTP | other *** search
/ Clickx 21 / Clickx 21.iso / Menu.dxr / 00014_start submenu.ls < prev    next >
Encoding:
Text File  |  2005-06-22  |  953 b   |  34 lines
  1. global gPlatform, gGroep
  2.  
  3. on enterFrame
  4.   if gPlatform = "PC" then
  5.     groepen = getGroupsPC()
  6.   else
  7.     groepen = getGroupsMAC()
  8.   end if
  9.   algemeen = getAlgemeen()
  10.   groepPos = findID(groepen, gGroep)
  11.   if groepen[groepPos].bgImage <> EMPTY then
  12.     sprite(1).member = member(groepen[groepPos].bgImage)
  13.   else
  14.     sprite(1).member = member("submenu")
  15.   end if
  16.   member("titel_groep").text = groepen[groepPos].titel
  17.   member("titel_groep").fontSize = 14
  18.   if groepen[groepPos].slogan = EMPTY then
  19.     member("slogan").text = algemeen[1].slogan
  20.   else
  21.     member("slogan").text = groepen[groepPos].slogan
  22.   end if
  23.   if groepen[groepPos].kleurcaption = EMPTY then
  24.     member("caption").color = rgb("#000000")
  25.   else
  26.     member("caption").color = rgb(groepen[gGroep].kleurcaption)
  27.   end if
  28.   if groepen[groepPos].kleururl = EMPTY then
  29.     member("URL").color = rgb("#0A2A72")
  30.   else
  31.     member("URL").color = rgb(groepen[groepPos].kleururl)
  32.   end if
  33. end
  34.